Top 10k strings from Super Spekulant (1985)(MGB)(pl).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   4 ;"SUPER SPEKULANT!";
   4 ;"M.G.B. Software presents game:";
   4  1985 by M.G.B. Soft. 
   2 l$(a)="b":
   2 c=c+q(i,a)*50
   2 b=b+z(i,a)*k(a,3
   2 ;"Enter- rezygnuje 
   2 ;" udzieli kredytu!   
   2 -wszystko.";
   2 (z(i,a)*b+.5
   2  Numer  koncernu? 
   2  Niestety bank nie  ";
   2  ";f;" ";k$(k(o,7
   2  ","   --  ----  +
   1 z(i,o)=z(i,o)-f:
   1 z(i,o)=z(i,o)+f:
   1 z(i,h)=z(i,c):
   1 z(i,a)=z(i,a)-c:
   1 z(i,a)=z(i,a)+b:
   1 z$(i,a)=" ":
   1 ycofujesz czy 
   1 t(o)=t(o)-
   1 t(o)=t(o)+
   1 t(b)=t(b)+m(a,2
   1 sds=sds/100
   1 sds=sds+sd/6
   1 q,e;"  ";:
   1 q(i,k)=q(i,k)+f:
   1 q(i,h)=q(i,c):
   1 placamy czy 
   1 obl.   ";:
   1 m(b)=m(b)+c*e
   1 koniec printowania ekranu
   1 k(h,d)=k(c,d):
   1 ierzemy kredyt?
   1 i$=w$(d,k(b,7
   1 f=f+a(e)*g:
   1 c;b$;" ";c$;:
   1 b,c+e;i$;:
   1 b,c+e;" ";:
   1 a=a+(q(i,b)*so)/12
   1 a=(a*sl/100
   1 a=(a*sk/100
   1 a,b;"  ";:
   1 a$;" ";k$(k(a,7
   1 Ile lat zamierzacie spekulowac?
   1 ;lat;"- rok";
   1 ;k$(k(m(a,1
   1 ;"zmienic kurs akcji";
   1 ;"wszystkich  o ";:
   1 ;"stopy procentowe:";
   1 ;"spekulantow gieldowych.":
   1 ;"obligacji- ";so;"%
   1 ;"kredytow - ";sk;"%";
   1 ;"informuje, ze w zwiazku z klopo-tami finansowymi, kurs akcji=";k(a,3
   1 ;"dywidend - ";sd;"%";
   1 ;"dlugi!";:
   1 ;"depozytow- ";sl;"%";
   1 ;"Wynik finansowy po ";lat;" latach:";:
   1 ;"W grze moze brac udzial 
   1 ;"Szkoda";:
   1 ;"Spekulant ";i:
   1 ;"Prezes gieldy poinformowal nas opojawieniu sie na gieldzie akcjikoncernu ";k$(a):
   1 ;"Press: t/n";:
   1 ;"Obligacje";b$;"$"
   1 ;"Najpierw splac";
   1 ;"Mozesz sprobowac";
   1 ;"Max ";a;" znakow 
   1 ;"Lista opcji:";
   1 ;"Koncerny  wyplacaja  posiadaczomich akcji dywidendy w wysokosci:";:
   1 ;"Koncern ";k$(k(a,7
   1 ;"Kon.+got.";a$;"$";
   1 ;"Instytut Badan Rynkowych podaje,iz przewaznie ";
   1 ;"Enter- nie kupuje obligacji.";
   1 ;"Czy aby na pewno?   (t/n)":
   1 ;"Bank centralny oglosil niewypla-calnosc koncernu ";k$(k(a,7
   1 ;"Aktualne";
   1 ;"Akcje";:
   1 ;"$, ";z;" obligacji po 50$."''"    Jednoczesnie informujemy, ze"'"nalezy  wykupic  conajmniej  51%obligacji, aby  uchronic koncernprzed stratami."''"
   1 ;" roku:    ";
   1 ;" aktualnych cen.    
   1 ;" Press: W/L; R- rezygnuje 
   1 ;" Press:  S/B; R-rezygnuje 
   1 ;" Czy na pewno ";
   1 ;" * * Press: b/d/k/l/p/s/z/0 * * ";:
   1 ;" * * Press key to continue. * * ":
   1 ;"  Wycofaj depozyt.  ";
   1 ;"  Gotowka: ";
   1 ;"  ";b$;"$"
   1 ;"   Konto:  ";
   1 -stopy procentowe";
   1 -sprzedaz";
   1 -koniec  operacji";
   1 -bierzacy  bilans":
   1 *((sa/la)*(100
   1 );","'"jest  zmuszony  do  wypuszczeniaobligacji  pozyczkowych na sume:";
   1 )+t(a)+m(a):
   1 )+q(i,a)*50
   1 ))=t(m(a,1
   1 ));b$;" ";:
   1 ));" S.W.A.= ";b;"$.";:
   1 (z(i,a)*0.1
   1 (((z-h)/z)*100
   1 (((z-h)/z)*10
   1 "wzrost ";
   1 "spadek ";:
   1 "kursu akcjikoncernu ";
   1 "Styczen"," Marzec","  Maj"," Lipiec","Wrzesien","Listopad","Grudzien"
   1 "IBM","Texas Instr.","ITT","Boening Comp.","Douglas Ltd.","Ford M.Comp.","General Mot.","Toyota Corp.","PAN-AM","Pacyfic Air","British Air","Ocean Lines","Pacyfic Lin.","Steel Corp.","Mining Ltd.","Copper Comp.","U.S. Gold","RPA Gold","Goldmines H.","Bank of Can.","Bank of Tex.","Banks Hold.","Corn Food H.","Meat Ltd.","Millery Fact."
   1 "''"Przy braku gotowki  bank udzielanieoprocentowanego kredytu."
   1  to continue.":
   1  sredniej wartosci akcji."
   1  Zwyciezcy zabraklo! 
   1  ZBANKRUTOWAL 
   1  Wiadomosci gieldowe. 
   1  Wartosc akcji= ";sa;" 
   1  Wartosc akcji wg   ";
   1  W Y G R A L 
   1  Stopa procentowa= ";so;"%. 
   1  Prosze podac imie. 
   1  Mozesz sprzedac ";z(i,o);" 
   1  Mozesz kupic ";h;" 
   1  L- lista. ";
   1  Koncern  zbankrutowal! 
   1  Koncern    Akcje $ Akc. obl.";
   1  Ile kupujesz obligacji 
   1  Ile chcesz zdeponowac? 
   1  Ile chcesz wycofac? 
   1  Ile chcesz splacic? 
   1  Ile chcesz kredytu? 
   1  Czy ktos chce kupic obligacje? 
   1  Czy jeszcze gramy? 
   1  Czy jest dobrze? 
   1  Co wybierasz? 
   1  BILANS   ";b$;"$
   1  A ilu tego chce? 
   1  @ @ @ @ @ @ @
   1  = Koniec";:
   1  1982 Sinclair Research Ltd":
   1  ---+-   ","
   1  -- ----    +--   ","
   1  -- +--   ","--+  --+--++--+---+ --+--","-+-+--+-+--  --++--- --+-","+---++---+--++---+--- --+","
   1  - ---+   ","
   1  ";sds;"% 
   1  ","---  +++
   1  ","+++- ---+++--
   1  ","+++ ----+++--
   1  ","   ---- ---  ----+++--   ","+++
   1   Nie masz gotowki! 
   1   1/2/3/4; 5-nic";: